home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / ntserv / Exec_AT_1_Min_from_Now.dpr < prev   
Encoding:
Text File  |  2001-01-12  |  318 b   |  18 lines
  1. program Exec_AT_1_Min_from_Now;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   Windows, SysUtils;
  7.  
  8. var
  9.   fcmdstr: string;
  10. begin
  11.  
  12.   fcmdstr := 'AT '+
  13.                 FormatDateTime('h:n',Now + 0.000694) // 1 minute
  14.                           +' /interactive CMD.EXE';
  15.   WinExec(pchar(fCmdStr), SW_SHOWMINNOACTIVE);
  16.  
  17. end.
  18.